VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "IShape"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Public Function Init(ByRef Parent As Object) As Boolean
End Function

Public Sub Move(ByVal ShiftX As Long, ByVal ShiftY As Long)
End Sub

Public Sub Remove(ByRef src As Object)
End Sub

Public Function Position(ByRef LeftUpX As Long, ByRef LeftUpY As Long, Optional ByRef RightDownX As Long = 0, Optional ByRef RightDownY As Long = 0) As Boolean
End Function

Public Sub Draw()
End Sub

Public Sub SaveControl()
End Sub

Public Sub Top()
End Sub
